library(dplyr)
library(plotly)
aegypti <- read.csv("aegypti_albopictus.csv", header = TRUE, sep = ",")
# filtering
yr04 <- aegypti %>%
select(VECTOR, Y, X, COUNTRY, YEAR) %>%
filter(YEAR == 2004)
yr04_p <- yr04 %>%
plot_mapbox(x= ~X, y =~Y, split =~VECTOR, mode = "scattermapbox", hoverinfo = 'name') %>%
layout(title = 'Scatter',
font = list(color='white'),
plot_bgcolor = '#191A1A', paper_bgcolor = '#191A1A',
mapbox = list(style = 'light'),
legend = list(orientation = 'h',
font = list(size = 8)),
margin = list(l = 25, r = 25,
b = 25, t = 25,
pad = 2))
yr04_p